unit Initializator;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Controller, MainFm,
  AnaliseDM,
  AnaliseSearchFr,
  AnaliseRecordFr,
  LaboratorioDM,
  LaboratorioRecordFr,
  MunicipioDM,
  MunicipioSearchFr,
  MunicipioRecordFr,
  ProdutorDM,
  ProdutorRecordFr,
  ProdutorSearchFr,
  SobreFR,
  TecnicoDM,
  TecnicoRecordFr,
  UsuarioDM,
  UsuarioRecordFR;

var
  TheControl: TController;
  AnaliseRecordFrame: TAnaliseRecordFrame;
  AnaliseSearchFrame: TAnaliseSearchFrame;
  LaboratorioRecordFrame: TLaboratorioRecordFrame;
  MunicipioSearchFrame: TMunicipioSearchFrame;
  MunicipioRecordFrame: TMunicipioRecordFrame;
  ProdutorRecordFrame: TProdutorRecordFrame;
  ProdutorSearchFrame: TProdutorSearchFrame;
  SobreFrame: TSobreFrame;
  TecnicoRecordFrame: TTecnicoRecordFrame;
  UsuarioRecordFrame: TUsuarioRecordFrame;


procedure InitializeFrames();

implementation

procedure InitializeFrames;
begin
  // Cria o controlador de frames
  TheControl := TController.Create(MainForm);
  // Análise (Busca)
  AnaliseSearchFrame := TAnaliseSearchFrame.Create(nil);
  AnaliseSearchFrame.Caption := 'Busca de Análises';
  AnaliseSearchFrame.MainDataModule := AnaliseData;
  // Análise (Lançamento)
  AnaliseRecordFrame := TAnaliseRecordFrame.Create(nil);
  AnaliseRecordFrame.Caption := 'Lançamento de Análises';
  AnaliseRecordFrame.MainDataModule := AnaliseData;
  AnaliseRecordFrame.SearchFrame := AnaliseSearchFrame;
  // Laboratório (Cadastro)
  LaboratorioRecordFrame := TLaboratorioRecordFrame.Create(nil);
  LaboratorioRecordFrame.Caption := 'Cadastro do Laboratório';
  LaboratorioRecordFrame.MainDataModule := LaboratorioData;
  // Município (Busca)
  MunicipioSearchFrame := TMunicipioSearchFrame.Create(nil);
  MunicipioSearchFrame.Caption := 'Busca de Município';
  MunicipioSearchFrame.MainDataModule := MunicipioData;
  // Município (Cadastro)
  MunicipioRecordFrame := TMunicipioRecordFrame.Create(nil);
  MunicipioRecordFrame.Caption := 'Cadastro de Município';
  MunicipioRecordFrame.MainDataModule := MunicipioData;
  MunicipioRecordFrame.SearchFrame := MunicipioSearchFrame;
  // Produtor (Busca)
  ProdutorSearchFrame := TProdutorSearchFrame.Create(nil);
  ProdutorSearchFrame.Caption := 'Busca de Produtor';
  ProdutorSearchFrame.MainDataModule := ProdutorData;
  // Produtor (Cadastro)
  ProdutorRecordFrame := TProdutorRecordFrame.Create(nil);
  ProdutorRecordFrame.Caption := 'Cadastro de Produtor';
  ProdutorRecordFrame.MainDataModule := ProdutorData;
  ProdutorRecordFrame.SearchFrame := ProdutorSearchFrame;
  // Sobre
  SobreFrame := TSobreFrame.Create(nil);
  SobreFrame.Caption:='Sobre o SCATS';
  // Técnico (Cadastro)
  TecnicoRecordFrame := TTecnicoRecordFrame.Create(nil);
  TecnicoRecordFrame.Caption := 'Cadastro de Técnico';
  TecnicoRecordFrame.MainDataModule := TecnicoData;
  // Usuário (Cadastro)
  UsuarioRecordFrame := TUsuarioRecordFrame.Create(nil);
  UsuarioRecordFrame.Caption := 'Cadastro de Técnico';
  UsuarioRecordFrame.MainDataModule := UsuarioData;
end;

end.
